perm filename FEXT.F4[MUS,LCS] blob sn#249535 filedate 1976-11-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(128)
C00003 ENDMK
CāŠ—;
	DIMENSION I(128)
	DO 1 K=1,128
1	I(K)=K
	CALL FORNAM('TEST','TST')
10	J=0
 	WRITE(1,3)I
	END FILE 1
	DO 2 K=1,128
2	I(K)=0
	CALL FORNAM('TEST','TST')
	READ (1,3)I
	TYPE 3,I
3	FORMAT(16I4)
	END